Sub IRACOMPRA()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    Sheets("COMPRA").Select
    Application.Calculation = xlCalculationAutomatic

End Sub
Sub IRAVENTA()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    Sheets("VENTA").Select
    Application.Calculation = xlCalculationAutomatic

End Sub
Sub IRABASE()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    Sheets("BASE").Select
    Application.Calculation = xlCalculationAutomatic

End Sub
Sub IRAPRODUCTOS()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    Sheets("PRODUCTOS").Select
    Application.Calculation = xlCalculationAutomatic
End Sub
Sub IRACLIENTES()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    Sheets("CLIENTES").Select
    Application.Calculation = xlCalculationAutomatic
End Sub
Sub IRAPROVEEDORES()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    Sheets("PROVEEDORES").Select
    Application.Calculation = xlCalculationAutomatic
End Sub
Sub IRARESUMEN()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    Sheets("RESUMEN").Select
    Application.Calculation = xlCalculationAutomatic
End Sub
